home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / DJLSR106.ARJ / STRSEP.C < prev    next >
C/C++ Source or Header  |  1992-03-02  |  2KB  |  73 lines
  1. /* This is file STRSEP.C */
  2. /* This file may have been modified by DJ Delorie (Jan 1991).  If so,
  3. ** these modifications are Coyright (C) 1991 DJ Delorie, 24 Kirsten Ave,
  4. ** Rochester NH, 03867-2954, USA.
  5. */
  6.  
  7. /*-
  8.  * Copyright (c) 1990 The Regents of the University of California.
  9.  * All rights reserved.
  10.  *
  11.  * Redistribution and use in source and binary forms are permitted
  12.  * provided that: (1) source distributions retain this entire copyright
  13.  * notice and comment, and (2) distributions including binaries display
  14.  * the following acknowledgement:  ``This product includes software
  15.  * developed by the University of California, Berkeley and its contributors''
  16.  * in the documentation or other materials provided with the distribution
  17.  * and in all advertising materials mentioning features or use of this
  18.  * software. Neither the name of the University nor the names of its
  19.  * contributors may be used to endorse or promote products derived
  20.  * from this software without specific prior written permission.
  21.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  22.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24.  */
  25.  
  26. #include <sys/stdc.h>
  27. #include <string.h>
  28. #include <stdio.h>
  29.  
  30. #if defined(LIBC_SCCS) && !defined(lint)
  31. static const char sccsid[] = "@(#)strsep.c    5.3 (Berkeley) 5/18/90";
  32. #endif /* LIBC_SCCS and not lint */
  33.  
  34. /*
  35.  * Get next token from string *stringp, where tokens are nonempty
  36.  * strings separated by characters from delim.  
  37.  *
  38.  * Writes NULs into the string at *stringp to end tokens.
  39.  * delim need not remain constant from call to call.
  40.  * On return, *stringp points past the last NUL written (if there might
  41.  * be further tokens), or is NULL (if there are definitely no more tokens).
  42.  *
  43.  * If *stringp is NULL, strtoken returns NULL.
  44.  */
  45. char *
  46. strsep(stringp, delim)
  47.     register char **stringp;
  48.     register const char *delim;
  49. {
  50.     register char *s;
  51.     register const char *spanp;
  52.     register int c, sc;
  53.     char *tok;
  54.  
  55.     if ((s = *stringp) == NULL)
  56.         return (NULL);
  57.     for (tok = s;;) {
  58.         c = *s++;
  59.         spanp = delim;
  60.         do {
  61.             if ((sc = *spanp++) == c) {
  62.                 if (c == 0)
  63.                     s = NULL;
  64.                 else
  65.                     s[-1] = 0;
  66.                 *stringp = s;
  67.                 return (tok);
  68.             }
  69.         } while (sc != 0);
  70.     }
  71.     /* NOTREACHED */
  72. }
  73.